home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Updaters / Overture 2.0.2 / Overture 2.0.2.rsrc / TEXT_128_Prolog.txt < prev    next >
Text File  |  1997-06-15  |  5KB  |  243 lines
  1. /Bdf {bind def} bind def
  2. /Clw {currentlinewidth} Bdf
  3. /Cp  {closepath} Bdf
  4. /CPt  {currentpoint} Bdf
  5. /Ct  {curveto} Bdf
  6. /Gr  {grestore} Bdf
  7. /Gs  {gsave} Bdf
  8. /Lt  {lineto} Bdf
  9. /Mt  {moveto} Bdf
  10. /Np  {newpath} Bdf
  11. /Rmt {rmoveto} Bdf
  12. /Rlt {rlineto} Bdf
  13. /Sk  {stroke} Bdf
  14. /Slw {setlinewidth} Bdf
  15. /Sw  {stringwidth pop} Bdf
  16. /Tx      {show} Bdf
  17. /Get  { exch def } Bdf
  18. /Pop4 { 4 {pop} repeat } Bdf
  19.  
  20. /SWidth 0 def
  21. /Char 1 string def
  22. /ChToStr { /Ch Get Char 0 Ch put } Bdf
  23. /Chw { ChToStr Sw } Bdf
  24.  
  25. /Line
  26. { /Align Get /Y1 Get /X1 Get /Y0 Get /X0 Get
  27. /Gap Clw 2 div def
  28. Align 1 eq { /X0 X0 Gap sub def /X1 X1 Gap sub def } if
  29. Align 2 eq { /Y0 Y0 Gap sub def /Y1 Y1 Gap sub def } if
  30. X0 Y0 Mt X1 Y1 Lt Sk
  31. } Bdf
  32.  
  33. /Head
  34. { /Left Get /Ch Get /Y0 Get
  35. Left 0 ne { Char 0 Ch put Char Sw sub (k) Sw add } if
  36. Y0 Mt Char 0 Ch put Char Tx
  37. } Bdf
  38.  
  39. /Flag
  40. { /Left Get /Ch Get /Y0 Get
  41. Left 0 ne { Char 0 116 put Char Sw sub (k) Sw add } if
  42. Y0 Mt Char 0 Ch put Char Tx
  43. } Bdf
  44.  
  45. /ChAt { /Ch Get Mt Char 0 Ch put Char Tx } Bdf
  46.  
  47. /RChAt
  48. { /Ch Get /EP Get
  49. Mt Char 0 Ch put
  50. { Char Tx
  51. CPt pop EP ge {exit} if
  52. } loop
  53. } Bdf
  54.  
  55. /DChAt
  56. { /Ag Get /Nc Get /Ch Get Mt
  57. Char 0 Ch put
  58. Gs
  59. Ag rotate
  60. Nc { Char Tx } repeat
  61. Gr
  62. } Bdf
  63.  
  64. /Clip
  65. { /Y1 Get /X1 Get /Y0 Get /X0 Get
  66.  Np X0 Y0 Mt X1 Y0 Lt X1 Y1 Lt X0 Y1 Lt Cp clip Np } Bdf
  67.  
  68. /DoFont { exch findfont exch scalefont setfont } Bdf
  69. /Dash { setdash 0 Line [] 0 setdash } Bdf
  70.  
  71. /Stem
  72. { /Y1 Get /Y0 Get /X0 Get
  73. /SP ( ) Sw 1 sub def
  74. /Y1 Y1 SP add def
  75. { Y0 Y1 gt
  76.   { X0 Y0 Mt (m) show /Y0 Y0 SP sub def }{exit} ifelse
  77. } loop
  78. X0 Y1 Mt (m) Tx
  79. } Bdf
  80.  
  81. /Staff
  82. { /Ch Get /X1 Get /Y0 Get /X0 Get
  83. Char 0 Ch put
  84. /CW Char Sw def
  85. /X1 X1 CW sub def
  86. X0 Y0 Mt
  87. { X1 currentpoint pop gt
  88.   { Char show -.5 0 Rmt }{exit} ifelse
  89. } loop
  90. X1 Y0 Mt Char show
  91. } Bdf
  92.  
  93. /Beam
  94. { /Bh Get /Ev Get /Eh Get /Sv Get /Sh Get /Pe Get /Ps Get
  95. Gs
  96. Sh -100000 Eh 100000 Clip
  97. Bh Slw 2 setlinecap
  98. /Bh Bh 2 div def
  99. /Sv Sv Bh sub def
  100. /Ev Ev Bh sub def
  101. Ps Sv Mt Pe Ev Lt Sk
  102. Gr
  103. } Bdf
  104.  
  105. /Brace
  106. { /Y1 Get /X1 Get /Y0 Get /X0 Get
  107. /BH X1 X0 sub 8 div def
  108. /BV Y0 Y1 sub 96 div def
  109. Gs
  110. BH BV scale
  111. X0 BH div Y0 24 BV mul sub BV div Mt (>) Tx
  112. X0 BH div Y0 72 BV mul sub BV div Mt (?) Tx Gr
  113. } Bdf
  114.  
  115. /Rect
  116. { /Y1 Get /X1 Get /Y0 Get /X0 Get
  117. Np
  118. X0 Y0 Mt
  119. X0 Y1 Lt
  120. X1 Y1 Lt
  121. X1 Y0 Lt
  122. Cp stroke
  123. } Bdf
  124.  
  125. /ORect
  126. { /Y1 Get /X1 Get /Y0 Get /X0 Get
  127. Gs Np
  128. /W X1 X0 sub def /H Y1 Y0 sub def
  129. X0 W 2 div add Y0 H 2 div add translate
  130. 1 H W div scale
  131. 0 0 W 2 div 0 360 arc Sk Gr
  132. } Bdf
  133.  
  134. /RRect
  135. { /RD Get /Y1 Get /X1 Get /Y0 Get /X0 Get
  136. Np 
  137. X0 X1 X0 sub 2 div add Y0 Mt
  138. X0 Y0 X0 Y1 RD arcto Pop4
  139. X0 Y1 X1 Y1 RD arcto Pop4
  140. X1 Y1 X1 Y0 RD arcto Pop4
  141. X1 Y0 X0 Y0 RD arcto Pop4
  142. Cp Sk } Bdf
  143.  
  144. /Curve
  145. { /Dh Get /SP Get
  146. /Y3 Get /X3 Get /Y2 Get /X2 Get
  147. /Y1 Get /X1 Get /Y0 Get /X0 Get
  148. Gs Np
  149. Dh 0 setdash SP Slw
  150. X0 Y0 Mt X1 Y1 X2 Y2 X3 Y3 Ct Sk
  151. Gr
  152. } Bdf
  153.  
  154. /Slur
  155. { /Dh Get /SP Get
  156. /Y3 Get /X3 Get /Y2 Get /X2 Get
  157. /Y1 Get /X1 Get /Y0 Get /X0 Get
  158. Gs Np
  159. Dh 0 setdash
  160. .25 Slw
  161. { SP 0 ge
  162. { X0 Y0 Mt X1 Y1 SP add X2 Y2 SP add X3 Y3 Ct Sk
  163. /SP SP .25 sub def }{exit} ifelse
  164. } loop
  165. Gr
  166. } Bdf
  167.  
  168. /FArc
  169. {
  170. /SA Get /EA Get /RH Get /RW Get
  171. /Y0 Get /X0 Get
  172. Np
  173. /cmtx matrix currentmatrix def
  174. X0 Y0 translate
  175. RW RH scale
  176. 0 0 1 EA SA arc
  177. cmtx setmatrix stroke
  178. } Bdf
  179.  
  180. /Arrow
  181. {
  182. /AG Get /AY Get /Y0 Get /X0 Get
  183. /AY AY 2 div def
  184. /AX AY 2.5 mul def
  185. Gs
  186. Np
  187. X0 Y0 Mt
  188. AG rotate
  189. AX neg AY Rlt
  190. 0 AY -2 mul Rlt
  191. AX AY Rlt
  192. Cp
  193. fill
  194. Gr
  195. } Bdf
  196.  
  197. /GetFont
  198. { exch dup FontDirectory exch known {pop pop}{buildfont} ifelse } def
  199. /buildfont { dup 256 string cvs (|______) anchorsearch pop pop
  200. cvn findfont
  201. dup length dict /newfont exch def
  202. { 1 index /FID ne
  203.   {newfont 3 1 roll put}    
  204.   {pop pop} ifelse    
  205. } forall
  206. exch
  207. {newfont begin
  208. /Encoding Encoding 256 array copy def
  209. 0 MacVectors
  210. { dup type /nametype eq    
  211.   { Encoding 2 index 2 index put pop 
  212.     1 add }
  213.   { exch pop } ifelse
  214. } forall
  215. pop    
  216. end} if    
  217. newfont definefont pop
  218. } Bdf
  219.  
  220. /MacVectors [ 39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
  221. /Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute
  222. /egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde
  223. /oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex
  224. /udieresis/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  225. /registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash
  226. /.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef
  227. /.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash
  228. /questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef
  229. /guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe
  230. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide
  231. /.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright
  232. /fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
  233. /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex
  234. /Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex
  235. /Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla
  236. /hungarumlaut/ogonek/caron ] def
  237.  
  238.  
  239. %%IncludeFont: Aloisen
  240. /MusicFont /Aloisen findfont 24 scalefont def
  241. /MF { MusicFont setfont } Bdf
  242. /MFG { /Aloisen findfont exch scalefont setfont } Bdf
  243.